SLAVE.ALL[HAL,HE] - www.SailDart.org

perm filename SLAVE.ALL[HAL,HE] blob sn#234029 filedate 1976-09-03 generic text, type T, neo UTF8

(PROG
(BLOCK $B1.DEST
 
 (BLKOP[1]) [IW=W201,OW=W234]
 (ASSERT( BARM = FRAME( ROTN(  XHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) IN W235) [IW=W234,OW=W235]
 (MOVE$ BARM TO  FRAME( ROTN(  XHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W235,OW=W236]
 (WHIL 1.000000    
  
  (BLOCK
   
   (BLKOP[1]) [IW=W237,OW=W242]
   (PRNT &TOKEN&) [IW=W242,OW=W243](SIGNAL  $B1.ELFREADY) [IW=W243,OW=W244](WAIT  $B1.TENREADY) [IW=W244,OW=W245]
   (ASSERT( BARM = FRAME( ROTN(  XHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) IN W246) [IW=W245,OW=W246]
   (MOVE$ BARM TO  FRAME( ROTN(  XHAT, 180.0000000*DEG), VECTOR( 43.54000, 56.86000, 10.73000))) [IW=W246,OW=W247]
   (BLKOP[2]) [IW=W247,OW=W250]
   ) [IW=W237,OW=W250]) [IW=W236,OW=W251]
 (BLKOP[2]) [IW=W251,OW=W252]
 ) [IW=W201,OW=W252]) [IW=W201,OW=W252]